home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Linux Cubed Series 4: GNU Archives
/
Linux Cubed Series 4 - GNU Archives.iso
/
gnu
/
sharutil.2
/
sharutil
/
sharutils-4.2
/
contrib
/
uuencode.pl
< prev
Encoding:
Amiga (detected)
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-03-08
|
259 b
|
11 lines
# uuencode in Perl - non tested.
# Copyright (C) 1995 Free Software Foundation, Inc.
# Franτois Pinard <pinard@iro.umontreal.ca>, 1995.
print "begin 644 $ARGV[0]\n";
print pack ("u", $bloc) while read (STDIN, $bloc, 45);
print "`\n";
print "end\n";
exit 0;